home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 98
/
Skunkware 98.iso
/
src
/
interp
/
perl5.005.tar.gz
/
perl5.005.tar
/
perl5.005
/
win32
/
splittree.pl
< prev
next >
Wrap
Text File
|
1998-07-19
|
527b
|
25 lines
use DirHandle;
use AutoSplit;
sub splitthis {
my ($top,$base,$dest) = @_;
my $d = new DirHandle $base;
if (defined $d) {
while (defined($_ = $d->read)) {
next if $_ eq ".";
next if $_ eq "..";
my $entry = "$base\\$_";
my $entrywithouttop = $entry;
$entrywithouttop =~ s/^$top//;
if (-d $entry) {splitthis ($top,$entry,$dest);}
else {
next unless ($entry=~/pm$/i);
#print "Will run autosplit on $entry to $dest\n";
autosplit($entry,$dest,0,1,1);
};
};
};
}
splitthis $ARGV[0],$ARGV[0],$ARGV[1];